From 7a464f911ebf3c109e5e92d2c095a9cfddd2c5a5 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 18 Jul 2009 21:05:47 +0000 Subject: [PATCH] (process-kill-buffer-query-function): New function. (add-hook): Add hook `process-kill-buffer-query-function'. --- lisp/subr.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/subr.el b/lisp/subr.el index 777202cf1ee..37411bcb8ad 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1722,6 +1722,16 @@ Value is t if a query was formerly required." (set-process-query-on-exit-flag process nil) old)) +(defun process-kill-buffer-query-function () + "Ask before killing a buffer that has a running process." + (let ((process (get-buffer-process (current-buffer)))) + (or (not process) + (not (memq (process-status process) '(run stop open listen))) + (not (process-query-on-exit-flag process)) + (yes-or-no-p "Buffer has a running process; kill it? ")))) + +(add-hook 'kill-buffer-query-functions 'process-kill-buffer-query-function) + ;; process plist management (defun process-get (process propname) -- 2.30.2